home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00070_StdPaint.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.4 KB  |  99 lines
  1. --
  2. -- standard paint manager object
  3. --
  4.  
  5. -- this is tied to the score in the nystrom UI setup
  6.  
  7. property ancestor
  8. property startingPictFlag
  9.  
  10. global gPrinterB,gBannerartB,gLeftB,gSpeakerB,gHomeB,gHelpB,gRightB
  11.  
  12. on new me
  13.   -- initialize constants:
  14.   
  15.   set ancestor = new (script "DrawPalette")
  16.   
  17.   if ancestor = 0 then
  18.     alert "There is something wrong in the initialization of the tools..."
  19.     halt
  20.     return 0
  21.   end if
  22.   
  23.   set startingPictFlag = FALSE
  24.   return me
  25. end
  26.  
  27.  
  28.  
  29. on initStartingPict me, bmpMemberName
  30.   initStartingPict (ancestor, bmpMemberName)
  31.   set startingPictFlag = TRUE
  32. end
  33.  
  34.  
  35. -- handle the mousedowns right here
  36. -- like a traffic cop
  37.  
  38. on mouseDown me, spr  
  39.   -- fire the mouseDown to the subordinate classes
  40.   if spr = gPrinterB and the frameLabel = "play" then
  41.     set mem = the memberNum of sprite spr 
  42.     set cLib = the castLibNum of sprite spr
  43.     if mem then set name = item 1 of the name of member mem of castLib cLib
  44.     else set name = 0
  45.     
  46.     if basicNameAnim (me, name, spr, 6) then print (rect (82,56,550,400), TRUE, FALSE)
  47.     
  48.     return 1
  49.   else if mouseDownTools(me, spr) then
  50.     return 1
  51.   else if mouseDownPalette(me, spr) then
  52.     return 1
  53.   else if the name of member the memberNum of sprite spr of castLib the castLibNum of sprite spr = "resetButton" then
  54.     bounceButton (spr)
  55.     clearCanvas (me)
  56.     return 1
  57.   else if the name of member the memberNum of sprite spr of castLib the castLibNum of sprite spr = "doneButton" then
  58.     bounceButton (spr) 
  59.     directOff (me)
  60.     clearCanvasCursor (me)
  61.     go "finish"
  62.     return 1
  63.   end if
  64.   
  65.   return 0
  66. end
  67.  
  68.  
  69. on initializeRound me
  70.   put "I am initializing the paint round..."
  71.   
  72.   -- this will set up the initial paint status based on the first sprite in each of the 2
  73.   -- underlying lists
  74.   
  75.   -- use the first tool
  76.   set spr = getAt(findColoredSprites(me, 2, 1), 1)
  77.   
  78.   if mouseDownTools(me, spr) = 0 then
  79.     alert "tool initialization failed, make sure they are the right color in the score..."
  80.   end if
  81.   
  82.   if not startingPictFlag then clearCanvas (me)
  83.   setCanvasSize (me, 344, 468)
  84.   directOn (me)
  85.   
  86.   -- use the first color
  87.   set spr = getAt(findColoredSprites(me, 3, 1), 1)
  88.   
  89.   if mouseDownPalette(me, spr) = 0 then
  90.     alert "palette initialization failed, make sure they are the right color in the score..."
  91.   end if
  92. end
  93.  
  94. on destruct me
  95.   if objectP (ancestor) then destruct (ancestor)
  96.   set ancestor = 0
  97. end
  98.  
  99.